home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)computerfest sept94.d64 / booter (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  38 lines
  1. 100 DV=PEEK(186)
  2. 110 IFXY=0THENXY=1:LOAD"ZAKP",DV,1
  3. 120 IFXY=1THENXY=2:LOAD"ZAK",DV,1
  4. 130 IFXY=2THENXY=3:LOAD"TPUG",DV,1
  5. 140 POKE53280,15:POKE53281,15:PRINT""
  6. 150 SYS53166
  7. 160 POKE53265,PEEK(53265)-16:POKE53272,PEEK(53272)OR8:POKE53265,PEEK(53265)OR32
  8. 170 X=1024:Y=16192:FORI=0TO999:POKEX+I,PEEK(Y+I):NEXT:POKE53265,PEEK(53265)+16
  9. 180 FORZ=1TO3500:NEXTZ:POKE53265,PEEK(53265)AND223:POKE53272,PEEK(53272)AND246
  10. 190 PRINT"[147] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  11. 200 PRINTTAB(5)"[144][212][208][213][199] [196]ISK [201][196] (C) [195][198]EST [211]EPT'94"
  12. 210 PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  13. 220 PRINT:PRINT"[158] [195]HOOSE [208]ROGRAM TO [204]OAD:"
  14. 230 PRINT:PRINT"[152][1] [209][215][203]IE [214]3.1"
  15. 240 PRINT"[2] [193]SCII/[208]ETSCII [195]ONVERTER [214]2.0"
  16. 250 PRINT"[3] [205]ACPAINT [214]IEWER"
  17. 260 PRINT"[4] [218]AKMASTER [214]2.3"
  18. 270 PRINT"[5] [195][198][195] [195]HESS [210]ATER"
  19. 280 PRINT"[6] [205][212][214] 64"
  20. 290 PRINT"[7] [200]ANDYTERM [214]8.63"
  21. 300 PRINT"[8] [195][199][193]NIMATOR [214]3.5"
  22. 310 PRINT"[9] [194]ASIC [195]OMPARER"
  23. 320 PRINT"[144][199]UIDI'S [204]OADER [214]2.4  (C)93/4 [211]TEVE [199]UIDI";
  24. 330 PRINT"[151]  [212][208][213][199] [212]ITLE [208]IC [196]RAWN [194]Y [211]TEVE [199]UIDI!"
  25. 340 GETA$:IFA$=""THEN340
  26. 350 IFA$="1"THENB$="BOOT 3.1":GOTO450
  27. 360 IFA$="2"THENB$="ASCII/PETSCII V2":GOTO450
  28. 370 IFA$="3"THENB$="VIEW MACPAINTS":GOTO450
  29. 380 IFA$="4"THENB$="ZAKMASTER V2.3":GOTO450
  30. 390 IFA$="5"THENB$="CFC CHESS RATER":GOTO450
  31. 400 IFA$="6"THENB$="MTV64":GOTO450
  32. 410 IFA$="7"THENB$="HANDYTERM V8.63":GOTO450
  33. 420 IFA$="8"THENB$="CG-ANIMATORV3.5A":GOTO450
  34. 430 IFA$="9"THENB$="BASIC COMPARE":GOTO450
  35. 440 GOTO340
  36. 450 SYS53203
  37. 460 LOADB$,DV,1
  38.